home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / game / patch / swoshd.lha / swoshd / SWOS Install < prev    next >
Text File  |  1998-06-13  |  3KB  |  121 lines
  1. ; $VER: SWOS HD Install-Script by Piotr Bieniek
  2.  
  3. (set GameDir "SWOS")
  4. (set TotalDisks 2)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8.  
  9. ;try to figure out a place where the user usually installs his games
  10. (if (exists "Games:" (noreq) )
  11.     (set @default-dest "Games:")
  12.     (if (exists "SYS:Games" (noreq) )
  13.         (set @default-dest "SYS:Games")
  14.         (if (exists "Work:Games" (noreq) )
  15.             (set @default-dest "Work:Games")
  16.             (set @default-dest "SYS:")
  17.         )
  18.     )
  19. )
  20.  
  21. ;ask the user to select a directory to install the game into
  22. (set default-dest
  23.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  24.                              "A drawer called " GameDir " will be created.")
  25.                      (help @askdir-help)
  26.                      (default @default-dest)
  27.                      (newpath)
  28.              )
  29.      GameDir
  30.      )
  31. )
  32. (set @default-dest default-dest)
  33. (complete 5)
  34.  
  35. ;create the selected directory and a subdirectory called Data
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39. (makedir (tackon @default-dest "data")
  40. )
  41. (makedir (tackon @default-dest "grafs")
  42. )
  43. (makedir (tackon @default-dest "sound")
  44. )
  45. (complete 10)
  46.  
  47. ;copy all extra files to this directory
  48. (set gamever
  49.      (askchoice (prompt "Which version of SWOS do you wish to install?")
  50.                 (help @askchoice-help)
  51.                 (choices "SWOS 96/97 full version" "SWOS 96/97 update disks")
  52.      )
  53. )
  54.  
  55. (if (= gamever 0) (set ssbootfile "ssboot.97"))
  56. (if (= gamever 1) (set ssbootfile "ssboot.97u"))
  57.  
  58.       (copyfiles (source ssbootfile)
  59.                  (dest @default-dest)
  60.                  (newname "ssboot")
  61.       )
  62.       (copyfiles (source "Sensible World of Soccer")
  63.                  (dest @default-dest)
  64.       )
  65.       (copyfiles (source "Sensible World of Soccer.icon")
  66.                  (dest @default-dest)
  67.                  (newname "Sensible World of Soccer.info")
  68.       )
  69.  
  70. (complete 20)
  71.  
  72. (askdisk (prompt "Please insert SWOS disk 1 in any drive.")
  73.          (help @askdisk-help)
  74.          (dest "SWOS")
  75. ;         (assigns)
  76. )
  77.  
  78. (copyfiles (source "SWOS:swos")
  79.            (dest @default-dest)
  80. )
  81. (copyfiles (source "SWOS:swos.rel")
  82.            (dest @default-dest)
  83. )
  84. (copyfiles (source "SWOS:swos2")
  85.            (dest @default-dest)
  86. )
  87. (copyfiles (source "SWOS:swos2.rel")
  88.            (dest @default-dest)
  89. )
  90. (copyfiles (source "SWOS:grafs")
  91.            (dest (tackon @default-dest "grafs"))
  92.            (all)
  93. )
  94. (copyfiles (source "SWOS:sound")
  95.            (dest (tackon @default-dest "sound"))
  96.            (all)
  97. )
  98.  
  99. (complete 60)
  100.  
  101. (askdisk (prompt "Please insert SWOS disk 2 in any drive.")
  102.          (help @askdisk-help)
  103.          (dest "SWOS2")
  104. ;         (assigns)
  105. )
  106.  
  107. (copyfiles (source "SWOS2:data")
  108.            (dest (tackon @default-dest "data"))
  109.            (all)
  110. )
  111. (copyfiles (source "SWOS2:grafs")
  112.            (dest (tackon @default-dest "grafs"))
  113.            (all)
  114. )
  115. (copyfiles (source "SWOS2:sound")
  116.            (dest (tackon @default-dest "sound"))
  117.            (all)
  118. )
  119.  
  120. (complete 100)
  121.